﻿Public Class frmDoiMatKhau
    Public _tkDTO As New TaiKhoanDTO
    Public _tkBUS As New TaiKhoanBUS
    Private Sub btnThoat_Click(sender As System.Object, e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub btnXacNhan_Click(sender As System.Object, e As System.EventArgs) Handles btnXacNhan.Click
        If txtMatKhauMoi.Text = txtMatKhauLapLai.Text Then
            Dim result As DialogResult = MessageBox.Show("Bạn có chắc chắn muốn thay đổi điều này?", "Thay đổi mật khẩu", MessageBoxButtons.YesNo)
            If result = DialogResult.Yes Then
                _tkDTO.MatKhau = txtMatKhauMoi.Text
                _tkBUS.Update(_tkDTO)
                Me.Close()
            End If
        End If
    End Sub

    Private Sub frmDoiMatKhau_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        txtMatKhau.Text=_tkDTO.MatKhau
    End Sub

    Private Sub txtMatKhauMoi_Leave(sender As System.Object, e As System.EventArgs) Handles txtMatKhauMoi.Leave
        If txtMatKhauMoi.Text.Length < 8 And txtMatKhauMoi.Text <> "" Then
            txtMatKhauMoi.Text = ""
            MessageBox.Show("Mật khẩu phải có ít nhất 8 kí tự", "Thông báo")
        End If
    End Sub

    Private Sub txtMatKhauLapLai_Leave(sender As System.Object, e As System.EventArgs) Handles txtMatKhauLapLai.Leave
        If txtMatKhauLapLai.Text.Length < 8 And txtMatKhauLapLai.Text <> "" Then
            txtMatKhauLapLai.Text = ""
            MessageBox.Show("Mật khẩu phải có ít nhất 8 kí tự", "Thông báo")
        ElseIf txtMatKhauMoi.Text <> txtMatKhauLapLai.Text And txtMatKhauLapLai.Text <> "" Then
            txtMatKhauLapLai.Text = ""
            MessageBox.Show("Mật khẩu lập lại không khớp, vui lòng nhập lại", "Thông báo")
        End If
    End Sub
End Class